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This paper presents an algorithm for reclaiming unused free storage 
memory cells in LISP. It depends on availability of a fast secondary 
storage device, or a large block of available temporary storage. For 
this price, we get 

1. Packing of free-storage into a solidly packed block. 

2. Smooth packing of arbitrary linear blocks and arrays. 

3. The collector will handle arbitrarily complex re-entrant list 
structure with no introduction of spurious copies. 

4. The algorithm is quite efficient; the marking pass visits words 
at most twice and usually once, and the loading pass is linear. 

5. The system is easily modified to allow for increase in sise of 
already fixed consecutive blocks, provided one can afford to 
initiate a collection pass or use a modified array while wait- 
ing for such a pass to occur. 

collect [«;n] is the £ unction that £ind , §1 , U , t ., ttuctur . 

depending froa «, and put* out on drua the 
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pert la permitted for any purpose of the United States Governs.™ 



A.I. Memo 58 (Revised) 



-4- 



Me mo rand urn MAC -M- 129 



To handle blocks, insert after the marking operator a transfer to 
a sub-program like the one below, which uses two new program variables: 



write[n;a;d] 
q :* h 
P :« d 
START q := q+1 
p :* p-1 

equal[p;0] ^ go [BEGIN] 
n :■ n+1 

writefullword[n;q] 
mark[q] 
go [START]]. 
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mark[x] 



mkd[x] 



When reloading, simply put (y . z) into 
register x. 

plants a mark in the word in register x, so 
that collect can tell that this word was 
encountered before. The value of mark [x J is x 

is a predicate that is T if x is marked. 
We assume also that 



atom[x] => m[x] 
for expository purposes. 
v[x] - [atom[x] -* x;T -> cdr[x]] 
This function gives access to the re- location address of the packed 
list-structure; these addresses are stored in the decrement fields of 
marked words. Only study of the algorithm will reveal why the old decre- 
ment values can be so replaced. 



collect[z;n] * prog[[a;d;m;h] 

BEGIN [null[z] -» return[DONE] 
h :« car[z] 
a :« car[h] 
d :» cdr[h] 
m :« mkd[h] 

l„ m -> rplacd[mark[h];n]] 
[m V mkd[a] V mkd[d] -♦ 
write [[m -» d;T -♦ n] ; 

[mkd[a] -» v[a];m -» n;T -♦ n+1]; 
[m -> d+l;mkd[d] -» v[d];T -♦ n+lj; 
* :■ cdr[z] 

[_ m A ~ mkd[d] A„mkd[a]-* z :-cons[h;z]] 
[m vmkd[d] A „mkd[a] -» z :- cons[a;z]] 
[^ m A ~mkd[d] -4 z :-cons[d;z]] 
[~ m •♦ n :» n+1] 
go [BEGIN]] 
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data for assembling the packed version of 
same. The packed version will, when loaded, 
begin at register n. To use collect , one 
must construct a z which leads to all the 
structure that must be saved. 

Collect has the additional feature that all cdr sequences end up 
linearly packed! There are probably some important applications of this. 

Collect uses a push-down list of words whose reading-out has had to 
be postponed because neither of the two pointers could be evaluated in terms 
of the re- location address. This list (here concatenated with z) can be 
as long as the longest chain of cdr's whose car's are not atoms. This can 
be a nuisance; the list would (in general) be shorter if we rewrite collect 
to pursue the car directions in preference to the cdr chains, m any case, 
the ordering on z is immaterial, hence it can be buffered and got out on 
secondary storage. 

Note: because of the replacd, collect as written will destroy itself 
if it can be reached through z. Obviously, the real collect will be a 
special compiled program. 

We present only the basic algorithmic idea. It is easy to see how 
to patch it to introduce a special atom "BLOCK" which, when it appears 
in the form 

EZJ 



BLOCK 



• • • 



signals the existence of a consecutive block of n full words following 
that word in core memory. 

The algorithm a. presented .tops copying when it encounter, en ATOM. 
Thi. i. done for clarity, but for real application one would have to H ke 
:hings more complicated. 
Definitions : 



write [x;y;z] writes the triple [x;y;z] on to the drum. 



